home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / DISPRT.BAS < prev    next >
BASIC Source File  |  1992-08-09  |  376b  |  22 lines
  1. SUB DisablePrintScreen ()
  2.  
  3.    'Purpose : To disable the Print Screen Function
  4.    'Input   : none
  5.    'Return  : none
  6.  
  7.    DEF SEG = 0
  8.    POKE &H500, 1
  9.    DEF SEG
  10. END SUB
  11.  
  12. SUB EnablePrintScreen
  13.  
  14.    'Purpose : To enable the Print Screen Function previously disabled
  15.    'Input   : none
  16.    'Output  : none
  17.    
  18.    DEF SEG = 0
  19.    POKE &H500, 0
  20.    DEF SEG
  21. END SUB
  22.